home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_91-06_1991_-_de_Side_B.d64 / sprite factory (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  807b  |  22 lines
  1. 0 rem *****************************
  2. 1 rem *     sprite - factory      *
  3. 2 rem *                           *
  4. 3 rem *            by             *
  5. 4 rem *                           *
  6. 5 rem *        jan joeckel        *
  7. 6 rem *****************************
  8. 10 print chr$(147):poke 53281,0:poke 53280,0
  9. 20 for s=1 to 6:print:next
  10. 25 rem *** maschinenprogramm laden ***
  11. 30 print chr$(155);"        loading sprite factory..."
  12. 40 if l=0 then l=1:load"spr.factory  .mc",8,1
  13. 50 rem ****** sprites einlesen ******
  14. 55 for s=0 to 127:poke 832+s,0:next
  15. 60 for s=0 to 41:read a:poke 832+s,a:next
  16. 70 for s=0 to 23:read a:poke 896+s,a:next
  17. 80 sys 12288
  18. 1000 rem ******* sprite daten *******
  19. 1010 data 255,0,0,254,0,0,252,0,0,254,0,0,255,0,0,255,128,0
  20. 1020 data 223,192,0,143,224,0,7,240,0,3,248,0,1,252,0,0,248,0,0,112,0,0,32,0
  21. 1030 data 255,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,129,0,0,255,0,0
  22.